home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
pqmenu.zip
/
PQMENU.BI
< prev
next >
Wrap
Text File
|
1992-02-22
|
696b
|
18 lines
TYPE MenuItems
titles AS STRING * 10
items AS STRING * 250
HotKey AS STRING * 25
position AS INTEGER
END TYPE
TYPE ColorBarPos
ULR AS INTEGER
ulc AS INTEGER
LRR AS INTEGER
lrc AS INTEGER
END TYPE
DECLARE SUB GetKey4 (mouse%, asccode%, scancode%, click%, rgt%, special%)
DECLARE FUNCTION largest (picks$(), count%)
DECLARE SUB ShowMenu (Element%, PullDown() AS MenuItems, NumberOfTitles%, bar%, mencol%, frame%, framecolor%, Inact%, KeyColor%, RevKeyColor%, mbar() AS ColorBarPos, choice$)
DECLARE SUB MENU (PullDown() AS MenuItems, MenuColor%, frame%, framecolor%, TEXTCOLOR%, HotKeyColor%, BarColor%, Inactive%, choice$, click%)